library(ggmap)
qmap("Mannheim")
MA_map <- qmap("Mannheim",zoom=14)
qmap(location = 'Mannheim', zoom = 12)
qmap(location = 'Mannheim', zoom = 13)
qmap(location = 'Mannheim', zoom = 20)
qmap(location = 'Mannheim', zoom = 14, source="osm")
qmap(location = 'Mannheim', zoom = 14, maptype="satellite")
qmap(location = 'Mannheim', zoom = 14, maptype="hybrid")
qmap(location = 'Mannheim', zoom = 14,
maptype="toner",source="stamen")
POI <- c("B2, 1 Mannheim","Hbf Mannheim",
"Wasserturm Mannheim")
ListPOI <- data.frame(lat=NA,lon=NA)
for ( i in 1:length(POI)){
geoPOI <- geocode(POI[i])
ListPOI[i,"lat"] <- geoPOI$lat
ListPOI[i,"lon"] <- geoPOI$lon
}
http://journal.r-project.org/archive/2013-1/kahle-wickham.pdf
MA_map +
geom_point(aes(x = lon, y = lat),
data = ListPOI)
mapdist("Q1, 4 Mannheim","B2, 1 Mannheim")
## from to m km miles seconds minutes hours
## 1 Q1, 4 Mannheim B2, 1 Mannheim 741 0.741 0.4604574 207 3.45 0.0575